Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / scn_savr / scrsvr / biker.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-11-08 | 7.0 KB | 315 lines

ScrnSave ScrnSave Form153 Picture1 Creating Screen Savers Overview wanted your% screensaver- toldK person heard Microsofty saidf screensavers wereF impossible Visual Basic Windows easy+ there somel important things Experts straight code= Section{ This. document DescriptionE Application^ title regular executable renamed extensionc Whenm making willu make4 Dialog MUSTl whereW wantm displayed@ control] panel dropdown8 Arguments startsx calls argumentS wants setup uses< module calledY SCRNSAVL statement% usedq capture change Startupf options- Project\ Main\ TellingA Saver! running waits beforec loading; specifiedX doesnl reload After/ passes again though already first thought5 could| remedy situation whetherO previous instance loaded should kills instances just= found which tells inactive SystemParametersInfo parameters suchc active careful+ sinceM changes permanent turns backD ended ExitNice Hiding cursorC ShowCursorL hidden object process hides needs redisplay well8 Knowing generally pressed routineU properly# eachb these events SaverForm{ becauseT other wonS MouseMove message REGARDLESS! moved check somehown solution necessarily prettiest ScrnSave declarationsm SWP_NOSIZE SWP_NOMOVE< SPI_SETSCREENSAVEACTIVE bShow SetWindowPosg Flags uAction uparam lpvParam= fuWinIni ConfigFormJ mayE alsoC initialization whatever does& Form_Load5 WindowState% Form_MouseMove Oldxu Form_Clicke Form_MouseDown Form_KeyDown Form_KeyPress Config* pass2 chosen specific might feature aboutd remembering Sources Congera James Group Electronic Journal$ Copyrightz Friendly2 IssueK Januaryb February Disclaimer Distribution informationu providedQ freeT charge, freely distributed portions elsewhere please indicate tested Professional risk/ registered* trademarks Submitted Peter< Provostb Button Shift KeyCode KeyAscii Timer1_Timer Picture1 Timer1[ Enabledn Interval ScaleWidth ThenPx Widthl Form_Resize ScaleHeight Picture1_Clicks Direction Fright Fleft XDirI XDirect? YDirectG Xdirec5 YInc4 XincQ ifIfg BitBlt Target Source Column? SRCCOPY ScrSave Blackness PlusVal NegVal bmWidth bmHeight hdcMemory SelectObject hbmpOld DeleteDC ReleaseDC hDestDC nWidth nHeight hSrcDC dwRop hbmpMyBitmap LoadBitmap hinst} GetDC CreateCompatibleDC Sub_Main FdAs^ FwidthV Fheight Fbottom Fdiv# Speed Picnum ElseRow Accel Decel Decode Picture position Biker LoadPicture NOTE-g The program is currently set up to test from within VB To make a working SCR screensaver file do the folowing-F Remove the two Rems's from the Biker.Frm load event code.. Change the Project/Options/StartUpForm to Sub Main Move the Biker.SCR file to your Windows directoryo and run from Control Panel.y ExitNice Turn the cursor back onr reset screensavert Form_Click Form_KeyDown Form_KeyPress Form_Load Initialise vars Make bitmap a picture1 property for SCR file \biker.bmp Remove Rem's for SCR file WindowState = 2 'Maximize the screensaver Show the forms This = ShowCursor(False) 'Hide the cursor Check for eventsl Check form extents, & reverse direction Needed if control of form y position needed If Py < 0 Then YInc = Abs(YInc) Else If Py > Fbottom Then YInc = -(YInc) Py = Py + YInc Decode picture position to blit from picture1 array Set Accel & Deceleration depending on picture shown As a few pixels at each end of the picture are black, and it is being moved by 1 pixel, we don't need to explicitly erase it.e If this is needed the follwing line will blit black overt the previously blitted picture but the flicker will be visiblet res = BitBlt(ScrnSave.hDC, Ox, Oy, 96, 96, ScrnSave.hDC, 96, 96, Blackness) Form_MouseDown Form_MouseMove Form_Resize